home *** CD-ROM | disk | FTP | other *** search
/ DS-CD ROM 2 1993 August / DS CD-ROM 2.Ausgabe (August 1993).iso / utility / ds0360 / pb32.exe / PBD.BAT < prev    next >
DOS Batch File  |  1992-10-27  |  20KB  |  794 lines
  1. @echo off
  2. rem ##############################################################
  3. rem ##                                                          ##
  4. rem ##                PROFIBATCH - DEVELOPER                    ##
  5. rem ##                                                          ##
  6. rem ##                      Version 1.0                         ##
  7. rem ##                                                          ##
  8. rem ## (C) 1991 by W. Andreas Pollack. Alle Rechte vorbehalten. ##
  9. rem ##############################################################
  10.  
  11. goto variablen
  12. rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  13. rem                     Subroutinen
  14. rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  15. REM -----------------Löscht nur die obere Hälfte
  16. :refresh1
  17. set menu=main
  18. REM pbdtxt.1,-X1,-Y1,-H3,-V0,-R0,-O
  19. REM pbdtxt.2,-X3,-Y1,-H3,-V15,-R0,-O
  20. REM pbdtxt.3,-X6,-Y1,-H3,-V15,-R0,-O
  21. REM pbdtxt.4,-X13,-Y1,-H3,-V15,-R0,-O
  22. REM pbdtxt.5,-X20,-Y1,-H3,-V15,-R0,-O
  23. REM pbdtxt.6,-X26,-Y1,-H3,-V15,-R0,-O
  24. REM pbdtxt.7,-X36,-Y1,-H3,-V15,-R0,-O
  25. REM pbdtxt.8,-X46,-Y1,-H3,-V15,-R0,-O
  26. REM pbdtxt.9,-X52,-Y1,-H3,-V15,-R0,-O
  27. REM pbdtxt.10,-X75,-Y1,-H3,-V15,-R0,-O
  28. REM pbdtxt.11,-X1,-Y2,-R0,-O
  29. USELIB 1-11 PBD
  30. goto main
  31.  
  32. REM ------------------löscht alles
  33. :refresh2
  34. set menu=main
  35. REM pbdtxt.12,-X1,-Y1,-H3,-V0,-R0,-O
  36. REM pbdtxt.13,-X3,-Y1,-H3,-V15,-R0,-O
  37. REM pbdtxt.14,-X6,-Y1,-H3,-V15,-R0,-O
  38. REM pbdtxt.15,-X13,-Y1,-H3,-V15,-R0,-O
  39. REM pbdtxt.16,-X20,-Y1,-H3,-V15,-R0,-O
  40. REM pbdtxt.17,-X26,-Y1,-H3,-V15,-R0,-O
  41. REM pbdtxt.18,-X36,-Y1,-H3,-V15,-R0,-O
  42. REM pbdtxt.19,-X46,-Y1,-H3,-V15,-R0,-O
  43. REM pbdtxt.20,-X52,-Y1,-H3,-V15,-R0,-O
  44. REM pbdtxt.21,-X75,-Y1,-H3,-V15,-R0,-O
  45. REM pbdtxt.22,-X1,-Y2,-R0,-O
  46. USELIB 12-22 PBD
  47. goto main
  48.  
  49. REM ---------------löscht alles, geht zum letzten Menü
  50. :lastmenu
  51. REM pbdtxt.23,-X1,-Y2,-R0,-O
  52. USELIB 23 PBD
  53. set f=
  54. goto %menu%
  55.  
  56. REM -----setzt die Standardkonfiguration wenn PBDCONFG.BAT nicht existiert
  57. :default
  58. set ed=EDITOR
  59. set qn=NIX.Q
  60. set ln=NIX.LIB
  61. set pn=NIX.BAT
  62. set xn=NONAME
  63. set sw=ON
  64. set menu=≡
  65. goto start
  66.  
  67. REM ------wartet bei geswapptem Screen
  68. :wait
  69. echo Drücken Sie eine Taste um zum PROFIBATCH - Developer zurückzukehren...
  70. REM -NDY,-X80,-Y25,-V0,-R0
  71. USELIB 24 PBD
  72. set menu=main
  73. goto start
  74.  
  75. rem ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  76. rem                     Variablen
  77. rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  78. :variablen
  79. set dy=▒
  80.  
  81. rem -----------------Konfigurieren
  82. if "%1" == "" goto noargs
  83. if not exist %1 goto noargs
  84. set cn=%1
  85. goto config
  86. :noargs
  87. set cn=PBDCONFG.BAT
  88. if not exist %cn% goto default
  89. :config
  90. call %cn%
  91. set menu=≡
  92.  
  93. rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  94. rem               Hier geht's los...
  95. rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  96. :start
  97. REM -F,-C
  98. REM pbdtxt.26,-X1,-Y1,-H3,-V0,-R0,-O
  99. REM pbdtxt.27,-X3,-Y1,-H3,-V15,-R0,-O
  100. REM pbdtxt.28,-X6,-Y1,-H3,-V15,-R0,-O
  101. REM pbdtxt.29,-X13,-Y1,-H3,-V15,-R0,-O
  102. REM pbdtxt.30,-X20,-Y1,-H3,-V15,-R0,-O
  103. REM pbdtxt.31,-X26,-Y1,-H3,-V15,-R0,-O
  104. REM pbdtxt.32,-X36,-Y1,-H3,-V15,-R0,-O
  105. REM pbdtxt.33,-X46,-Y1,-H3,-V15,-R0,-O
  106. REM pbdtxt.34,-X52,-Y1,-H3,-V15,-R0,-O
  107. REM pbdtxt.35,-X75,-Y1,-H3,-V15,-R0,-O
  108. REM pbdtxt.36,-X1,-Y2,-R0,-O
  109. REM pbdtxt.37,-X1,-Y25,-H3,-V0,-R0,-O
  110. REM pbdtxt.38,-X3,-Y25,-H3,-V15,-R0,-O
  111. REM pbdtxt.39,-X11,-Y25,-H3,-V15,-R0,-O
  112. REM pbdtxt.40,-X19,-Y25,-H3,-V15,-R0,-O
  113. REM pbdtxt.41,-X27,-Y25,-H3,-V15,-R0,-O
  114. REM pbdtxt.42,-X35,-Y25,-H3,-V15,-R0,-O
  115. REM pbdtxt.43,-X43,-Y25,-H3,-V15,-R0,-O
  116. REM pbdtxt.44,-X51,-Y25,-H3,-V15,-R0,-O
  117. REM pbdtxt.45,-X59,-Y25,-H3,-V15,-R0,-O
  118. REM pbdtxt.46,-X67,-Y25,-H3,-V15,-R0,-O
  119. REM pbdtxt.47,-X76,-Y25,-H3,-V15,-R0,-O
  120. USELIB 25-47 PBD
  121. goto %menu%
  122.  
  123. rem +++++++++++++++++++++++++++++++++++++++++++
  124. rem                  Hauptmenü
  125. rem +++++++++++++++++++++++++++++++++++++++++++
  126. :main
  127. set menu=main
  128. REM -NDY,-X80,-Y24,-R0
  129. USELIB 48 PBD
  130. if errorlevel 254 goto yesend
  131. if errorlevel 241 goto main
  132. if errorlevel 240 goto ≡
  133. if errorlevel 116 goto main
  134. if errorlevel 115 goto status
  135. if errorlevel 114 goto run
  136. if errorlevel 112 goto main
  137. if errorlevel 111 goto options
  138. if errorlevel 105 goto main
  139. if errorlevel 104 goto help
  140. if errorlevel 103 goto main
  141. if errorlevel 102 goto file
  142. if errorlevel 101 goto edit
  143. if errorlevel 100 goto dos
  144. if errorlevel 99 goto compile
  145. if errorlevel 11 goto main
  146. if errorlevel 10 goto index
  147. if errorlevel 9 goto shell
  148. if errorlevel 8 goto makeboth
  149. if errorlevel 7 goto editx
  150. if errorlevel 6 goto editpgm
  151. if errorlevel 5 goto xstart
  152. if errorlevel 4 goto batstart
  153. if errorlevel 3 goto yesend
  154. if errorlevel 2 goto loadconf
  155. if errorlevel 1 goto helpONhelp
  156. goto main
  157.  
  158. rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  159. rem         Die Menüs in der Header-Zeile (doppelter Rahmen!)
  160. rem +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  161. REM ---------------Menü ≡
  162. :≡
  163. REM pbdtxt.49,-X3,-Y1,-H7,-V0,-R0,-O
  164. REM pbdtxt.50,-H7,-V0,-R1,-S,-Z5
  165. USELIB 49-50 PBD
  166. goto refresh1
  167.  
  168. REM --------------Menü FILE
  169. :file
  170. set menu=file
  171. REM pbdtxt.51,-X6,-Y1,-H7,-V0,-R0,-O
  172. REM pbdtxt.52,-U File ,-X6,-Y2,-H7,-V0,-S,-O,-M
  173. USELIB 51-52 PBD
  174. if errorlevel 254 goto refresh1
  175. if errorlevel 4 goto yesend
  176. if errorlevel 3 goto shell
  177. if errorlevel 2 goto renam
  178. if errorlevel 1 goto open
  179.  
  180. REM --------------Menü EDIT
  181. :edit
  182. set menu=edit
  183. REM pbdtxt.53,-X13,-Y1,-H7,-V0,-R0,-O
  184. REM pbdtxt.54,-U Edit ,-X13,-Y2,-H7,-V0,-S,-O,-M
  185. USELIB 53-54 PBD
  186. if errorlevel 254 goto refresh1
  187. if errorlevel 3 goto editq
  188. if errorlevel 2 goto editpgm
  189. if errorlevel 1 goto editx
  190.  
  191. REM --------------Menü RUN
  192. :run
  193. set menu=run
  194. REM pbdtxt.55,-X20,-Y1,-H7,-V0,-R0,-O
  195. REM pbdtxt.56,-U Run ,-X20,-Y2,-H7,-V0,-S,-O,-M
  196. USELIB 55-56 PBD
  197. if errorlevel 254 goto refresh1
  198. if errorlevel 5 goto libstart
  199. if errorlevel 4 goto xstart
  200. if errorlevel 3 goto quellstart
  201. if errorlevel 2 goto args
  202. if errorlevel 1 goto batstart
  203.  
  204. REM -------------------Menü COMPILE
  205. :compile
  206. set menu=compile
  207. REM pbdtxt.57,-X26,-Y1,-H7,-V0,-R0,-O
  208. REM pbdtxt.58,-U Compile ,-X26,-Y2,-H7,-V0,-S,-O,-M
  209. USELIB 57-58 PBD
  210. if errorlevel 254 goto refresh1
  211. if errorlevel 5 goto append
  212. if errorlevel 4 goto expand
  213. if errorlevel 3 goto makeboth
  214. if errorlevel 2 goto build
  215. if errorlevel 1 goto convert
  216.  
  217. REM -------------------------Menü OPTIONS
  218. :options
  219. set menu=options
  220. REM pbdtxt.59,-X36,-Y1,-H7,-V0,-R0,-O
  221. REM pbdtxt.60,-U Options ,-X36,-Y2,-H7,-V0,-S,-O,-M
  222. USELIB 59-60 PBD
  223. if errorlevel 254 goto refresh1
  224. if errorlevel 4 goto newscreen
  225. if errorlevel 3 goto loadconf
  226. if errorlevel 2 goto editconf
  227. if errorlevel 1 goto makeconf
  228.  
  229. REM -----------------Menü DOS
  230. :dos
  231. set menu=dos
  232. REM pbdtxt.61,-X46,-Y1,-H7,-V0,-R0,-O
  233. REM pbdtxt.62,-U DOS ,-X46,-Y2,-H7,-V0,-S,-O,-M
  234. USELIB 61-62 PBD
  235. if errorlevel 254 goto refresh1
  236. if errorlevel 6 goto copycon
  237. if errorlevel 5 goto umbenennen
  238. if errorlevel 4 goto formatieren
  239. if errorlevel 3 goto kopieren
  240. if errorlevel 2 goto programm
  241. if errorlevel 1 goto shell
  242.  
  243. REM -------------------Menü STATUS
  244. :status
  245. REM pbdtxt.63,-X52,-Y1,-H7,-V0,-R0,-O
  246. REM pbdtxt.64,-U Die momentanen Einträge ,-H7,-V0,-R1,-S,-O
  247. REM -NPN,-X22,-Y10,-H7,-V15,-R0,-O
  248. REM -NLN,-X22,-Y11,-H7,-V15,-R0,-O
  249. REM -NQN,-X22,-Y12,-H7,-V15,-R0,-O
  250. REM -NED,-X22,-Y13,-H7,-V15,-R0,-O
  251. REM -NXN,-X22,-Y14,-H7,-V15,-R0,-O
  252. REM -NCN,-X22,-Y15,-H7,-V15,-R0,-O
  253. REM -NSW,-X22,-Y16,-H7,-V15,-R0,-O
  254. USELIB 63-71 PBD
  255. :stokay
  256. REM pbdtxt.72,-X53,-Y14,-H7,-V15,-R0
  257. USELIB 72 PBD
  258. if errorlevel 133 goto refresh2
  259. if errorlevel 132 goto statusinput
  260. if errorlevel 10 goto refresh2
  261. if errorlevel 9 goto standern
  262. goto refresh2
  263. :standern
  264. REM pbdtxt.73,-X65,-Y14,-H7,-V15,-R0
  265. USELIB 73 PBD
  266. if errorlevel 14 goto refresh2
  267. if errorlevel 13 goto statusinput
  268. if errorlevel 9 goto stokay
  269. goto refresh2
  270. :statusinput
  271. REM -IPN,-B53,-X22,-Y10,-V15,-R0,-O
  272. REM -ILN,-B53,-X22,-Y11,-V15,-R0,-O
  273. REM -IQN,-B53,-X22,-Y12,-V15,-R0,-O
  274. REM -IED,-B53,-X22,-Y13,-V15,-R0,-O
  275. REM -IXN,-B12,-X22,-Y14,-V15,-R0,-O
  276. REM -ICN,-B12,-X22,-Y15,-V15,-R0,-O
  277. REM -ISW,-B3,-X22,-Y16,-V15,-R0,-O
  278. USELIB 74-80 PBD
  279. goto status
  280.  
  281.  
  282. REM -------------------MENÜ HELP
  283. :help
  284. set menu=help
  285. REM pbdtxt.81,-X75,-Y1,-H7,-V0,-R0,-O
  286. REM pbdtxt.82,-U Help ,-X61,-Y2,-H7,-V0,-S,-M
  287. USELIB 81-82 PBD
  288. if errorlevel 254 goto refresh1
  289. if errorlevel 2 goto index
  290. if errorlevel 1 goto helpONhelp
  291.  
  292. rem ++++++++++++++++++++++++++++++++++++++++
  293. rem      Info - Texte
  294. rem +++++++++++++++++++++++++++++++++++++++
  295.  
  296. REM --------------ENDABFRAGE
  297. :yesend
  298. REM pbdtxt.83,-H4,-V0,-S,-O
  299. REM pbdtxt.84,-X29,-Y13,-H4,-V15,-R0
  300. USELIB 83-84 PBD
  301. if errorlevel 107 goto refresh2
  302. if errorlevel 106 goto end
  303. if errorlevel 14 goto refresh2
  304. if errorlevel 13 goto end
  305. if errorlevel 10 goto refresh2
  306. if errorlevel 9 goto end_no
  307. goto refresh2
  308. :end_no
  309. REM pbdtxt.85,-X46,-Y13,-H4,-V15,-R0
  310. USELIB 85 PBD
  311. if errorlevel 107 goto refresh2
  312. if errorlevel 106 goto end
  313. if errorlevel 10 goto refresh2
  314. if errorlevel 9 goto yesend
  315. goto refresh2
  316.  
  317. REM ----------------HELP / HILFE FÜR HILFE
  318. :helpONhelp
  319. REM pbdtxt.86,-U HILFE für die HILFE-Funktion ,-H3,-V0,-S
  320. USELIB 86 PBD
  321. goto %menu%
  322.  
  323. REM ----------------HELP / INDEX
  324. :index
  325. call index.bat
  326. goto refresh2
  327.  
  328. rem ++++++++++++++++++++++++++++++++++++++
  329. rem        Prozeduren
  330. rem ++++++++++++++++++++++++++++++++++++++
  331.  
  332. REM ---------------FILE / PROGRAMM BENENNEN
  333. :open
  334. REM -IPN,-B50,-U Geben Sie Pfad und Dateinamen an ,-H7,-V0,-S
  335. USELIB 87 PBD
  336. goto refresh1
  337.  
  338. REM --------------FILE / PROGRAMM UMBENENNEN
  339. :renam
  340. REM pbdtxt.88,-U Geben Sie den neuen Namen ein ,-H7,-V0,-S,-O
  341. REM -NPN,-X21,-Y12,-H7,-V15,-R0,-O
  342. REM -IPN1,-B52,-X21,-Y14,-R0,-O
  343. USELIB 88-90 PBD
  344. if errorlevel 254 goto lastmenu
  345. if "%pn1%" == "" goto lastmenu
  346. if not exist %pn% goto existerr
  347. ren %pn% %pn1%
  348. set pn=%pn1%
  349. set pn1=
  350. goto refresh2
  351.  
  352. REM -------------------EDIT / PROGRAMM
  353. :editpgm
  354. cls
  355. command /c %ed% %pn%
  356. set menu=main
  357. goto start
  358.  
  359. REM --------------------EDIT / QUELLDATEI
  360. :editq
  361. cls
  362. command /c %ed% %qn%
  363. set menu=main
  364. goto start
  365.  
  366. REM --------------------EDIT / X-DATEI
  367. :editx
  368. REM -IXN,-B52,-U Geben Sie einen Dateinamen ein ,-H7,-V0,-R1,-S
  369. USELIB 91 PBD
  370. if errorlevel 254 goto %menu%
  371. cls
  372. command /c %ed% %xn%
  373. set menu=main
  374. goto start
  375.  
  376. REM ------------RUN / PROGRAMM STARTEN
  377. :batstart
  378. set al=?
  379. cls
  380. command /c %pn% %al%
  381. set menu=main
  382. goto start
  383.  
  384. REM --------------RUN / ARGUMENTE
  385. :args
  386. REM -IAL,-B60,-U Geben Sie die Argumentliste ein ,-H7,-V0,-R1,-S
  387. USELIB 92 PBD
  388. goto %menu%
  389.  
  390. REM -----------RUN / QUELLDATEI STARTEN
  391. :quellstart
  392. if not exist %qn% goto quellinput
  393. if "%sw%" == "ON" cls
  394. if "%sw%" == "ON " cls
  395. if "%sw%" == "on" cls
  396. if "%sw%" == "on " cls
  397. command /c pb %qn% -q
  398. if "%sw%" == "ON" goto wait
  399. if "%sw%" == "ON " goto wait
  400. if "%sw%" == "on" goto wait
  401. if "%sw%" == "on " goto wait
  402. goto refresh2
  403. :quellinput
  404. REM -IQN,-B50,-U Geben Sie die Quelldatei ein ,-H7,-V0,-R1,-S
  405. USELIB 93 PBD
  406. if errorlevel 254 goto %menu%
  407. goto quellstart
  408.  
  409. REM ------------------RUN / X-DATEI STARTEN
  410. :xstart
  411. if not exist %xn% goto xinput
  412. REM -IAL,-B65,-U Geben Sie die Argumente ein ,-H7,-V0,-R1,-S
  413. USELIB 94 PBD
  414. if errorlevel 254 goto %menu%
  415. if "%sw%" == "ON" cls
  416. if "%sw%" == "ON " cls
  417. if "%sw%" == "on" cls
  418. if "%sw%" == "on " cls
  419. command /c pb %xn% %al%
  420. if "%sw%" == "ON" goto wait
  421. if "%sw%" == "ON " goto wait
  422. if "%sw%" == "on" goto wait
  423. if "%sw%" == "on " goto wait
  424. goto refresh2
  425. :xinput
  426. REM -IXN,-B50,-U Geben Sie den Dateinamen ein ,-H7,-V0,-R1,-S
  427. USELIB 95 PBD
  428. if errorlevel 254 goto %menu%
  429. goto xstart
  430.  
  431. REM -----------------RUN / BIBLIOTHEK STARTEN
  432. :libstart
  433. if not exist %ln% goto lninput
  434. REM -ITMP,-B40,-U Welche Einträge? ,-H7,-V0,-R1,-S
  435. USELIB 96 PBD
  436. if errorlevel 254 goto %menu%
  437. if "%tmp%" == "" set tmp=1-
  438. if "%sw%" == "ON" cls
  439. if "%sw%" == "ON " cls
  440. if "%sw%" == "on" cls
  441. if "%sw%" == "on " cls
  442. command /c USELIB %tmp% %ln%
  443. if "%sw%" == "ON" goto wait
  444. if "%sw%" == "ON " goto wait
  445. if "%sw%" == "on" goto wait
  446. if "%sw%" == "on " goto wait
  447. goto refresh2
  448. :lninput
  449. REM -ILN,-B50,-U Geben Sie die Bibliothek ein ,-H7,-V0,-R1,-S
  450. USELIB 97 PBD
  451. if errorlevel 254 goto %menu%
  452. goto libstart
  453.  
  454. REM --------------COMPILE / BATCH-PROGRAMM KONVERTIEREN
  455. :convert
  456. if not exist BAT2Q.EXE goto bat2qerr
  457. set s=PB
  458. set nr=1
  459. set ojn=JA
  460. set kjn=NEIN
  461. :convert1
  462. REM pbdtxt.98,-U Batch-Programm konvertieren ,-Y10,-H7,-V0,-R1,-S,-O
  463. REM -NPN,-X24,-Y12,-H7,-V15,-R0,-O
  464. REM -NQN,-X24,-Y13,-H7,-V15,-R0,-O
  465. REM -NS,-X24,-Y14,-H7,-V15,-R0,-O
  466. REM -NNR,-X24,-Y15,-H7,-V15,-R0,-O
  467. REM -NOJN,-X24,-Y16,-H7,-V15,-R0,-O
  468. REM -NKJN,-X24,-Y17,-H7,-V15,-R0,-O
  469. USELIB 98-104 PBD
  470. :convokay
  471. REM pbdtxt.105,-X48,-Y15,-H7,-V15,-R0
  472. USELIB 105 PBD
  473. if errorlevel 133 goto lastmenu
  474. if errorlevel 132 goto convinput
  475. if errorlevel 14 goto lastmenu
  476. if errorlevel 13 goto convbegin
  477. if errorlevel 10 goto lastmenu
  478. if errorlevel 9 goto convandern
  479. goto lastmenu
  480. :convandern
  481. REM pbdtxt.106,-X60,-Y15,-H7,-V15,-R0
  482. USELIB 106 PBD
  483. if errorlevel 14 goto lastmenu
  484. if errorlevel 13 goto convinput
  485. if errorlevel 9 goto convokay
  486. goto lastmenu
  487. :convbegin
  488. set o=
  489. set k=
  490. if "%ojn%" == "JA" set o=/o
  491. if "%ojn%" == "ja" set o=/o
  492. if "%kjn%" == "JA" set k=/k
  493. if "%kjn%" == "ja" set k=/k
  494. cls
  495. command /c bat2q %pn% /s%s% /b%nr% /a%qn% %o% %k%
  496. set o=
  497. set k=
  498. set s=
  499. set nr=
  500. set ojn=
  501. set kjn=
  502. if "%f%" == "both" goto both1
  503. goto wait
  504.  
  505. REM -------------------COMPILE / BATCH-PROGRAMM KONVERTIEREN / ÄNDERN
  506. :convinput
  507. REM -IPN,-B49,-X24,-Y12,-V15,-R0,-O
  508. REM -IQN,-B49,-X24,-Y13,-V15,-R0,-O
  509. REM -IS,-B12,-X24,-Y14,-V15,-R0,-O
  510. REM -INR,-B3,-X24,-Y15,-V15,-R0,-O
  511. REM -IOJN,-B4,-X24,-Y16,-V15,-R0,-O
  512. REM -IKJN,-B4,-X24,-Y17,-V15,-R0,-O
  513. USELIB 107-112 PBD
  514. goto convert1
  515.  
  516. REM -----------------COMPILE / BIBLIOTHEK ERSTELLEN
  517. :build
  518. if not exist PB.EXE goto pberr
  519. if not exist PBLIB.SRC goto pbliberr
  520. REM pbdtxt.113,-U Ändern oder bestätigen Sie die Quelldatei ,-Y16,-H7,-V0,-R1,-S,-O
  521. REM -IQN,-B52,-X21,-Y17,-V15,-R0,-O
  522. USELIB 113-114 PBD
  523. if errorlevel 254 goto lastmenu
  524. if "%qn%" == "" goto lastmenu
  525. cls
  526. command /c pb %qn% -e -q
  527. goto wait
  528.  
  529. REM -------------------COMPILE / KONVERTIEREN UND ERSTELLEN
  530. :makeboth
  531. set f=both
  532. goto convert
  533. :both1
  534. goto build
  535. set f=
  536. goto start
  537.  
  538. REM -------------COMPILE / BIBLIOTHEK EXPANDIEREN
  539. :expand
  540. if not exist LIB2TXT.COM goto liberr
  541. REM pbdtxt.115,-U Ändern oder bestätigen Sie ,-H7,-V0,-R1,-S,-O
  542. REM -ILN,-B52,-X21,-Y12,-V15,-R0,-O
  543. REM -IDST,-B8,-X21,-Y14,-V15,-R0,-O
  544. USELIB 115-117 PBD
  545. if errorlevel 254 goto lastmenu
  546. if "%ln%" == "" goto expand
  547. if "%dst%" == "" goto expand
  548. if not exist %ln% goto existerr
  549. REM pbdtxt.118,-X30,-Y16,-H7,-V0,-S,-M
  550. USELIB 118 PBD
  551. if errorlevel 254 goto lastmenu
  552. if errorlevel 2 set i=/i
  553. cls
  554. command /c lib2txt %ln% %dst% %i%
  555. set dst=
  556. set i=
  557. goto wait
  558.  
  559. REM --------------COMPILE / BIBLIOTHEK ERWEITERN
  560. :append
  561. REM -ILN,-B50,-U Geben Sie die Bibliothek ein ,-Y11,-H7,-V0,-R1,-S,-O
  562. USELIB 119 PBD
  563. if errorlevel 254 goto lastmenu
  564. if not exist %ln% goto existerr
  565. if "%ln%" == "" goto append
  566. :app
  567. REM -ISRC,-B50,-U Geben Sie den (Quell-)Dateinamen ein ,-Y16,-H7,-V0,-R1,-S,-O
  568. USELIB 120 PBD
  569. if errorlevel 254 goto lastmenu
  570. if not exist %src% goto existerr
  571. if "%src%" == "" goto app
  572. REM pbdtxt.121,-X50,-Y17,-H7,-V0,-R1,-S,-O,-M
  573. USELIB 121 PBD
  574. if errorlevel 254 goto refresh2
  575. if errorlevel 3 goto app2
  576. if errorlevel 2 goto app1
  577. goto append
  578. :app1
  579. REM -IAL,-B65,-U Geben Sie die Argumente ein ,-Y21,-H7,-V0,-R1,-S,-O
  580. USELIB 122 PBD
  581. goto app3
  582. :app2
  583. set tmp=/q
  584. :app3
  585. cls
  586. command /c pb %src% %al% -a%ln% -e %tmp%
  587. set tmp=
  588. goto wait
  589.  
  590. REM --------------------OPTIONS / KONFIRURATION ANLEGEN
  591. :makeconf
  592. REM -ICN,-B52,-U Geben Sie Pfad und Namen ein (Mit Endung: .BAT) ,-H7,-V0,-R1,-S
  593. USELIB 123 PBD
  594. if errorlevel 254 goto %menu%
  595. if "%cn%" == "" goto %menu%
  596. if not exist CONFIG.STD goto conferr
  597. copy CONFIG.STD %cn% > NUL
  598. goto %menu%
  599.  
  600. REM --------------------OPTIONS / KONFIGURATION BEARBEITEN
  601. :editconf
  602. cls
  603. command /c %ed% %cn%
  604. goto start
  605.  
  606. REM ---------------OPTIONS / KONFIGURATION LADEN
  607. :loadconf
  608. REM -ICN,-B52,-U Ist das die richtige Konfigurationsdatei? ,-H7,-V0,-R1,-S
  609. USELIB 124 PBD
  610. if errorlevel 254 goto %menu%
  611. if "%cn%" == "" goto %menu%
  612. if not exist %cn% goto existerr
  613. REM -F,-C
  614. USELIB 125 PBD
  615. echo Ich konfiguriere den PROFIBATCH-Developer mit %cn%
  616. call %cn%
  617. set menu=main
  618. goto start
  619.  
  620. REM ----------------OPTIONS / BILDSCHIRM AUFFRISCHEN
  621. :newscreen
  622. set menu=main
  623. goto start
  624.  
  625.  
  626. REM -----------------DOS / DOS-SHELL
  627. :shell
  628. cls
  629. echo Geben Sie EXIT ein, um zum PROFIBATCH-Developer zurückzukehren!
  630. command
  631. set menu=main
  632. goto start
  633.  
  634. REM ----------------DOS / DOS-KOMMANDOZEILE
  635. :programm
  636. REM -IARG,-B70,-U Geben Sie einen DOS-Befehl ein ,-H7,-V0,-R1,-S
  637. USELIB 126 PBD
  638. if errorlevel 254 goto %menu%
  639. if errorlevel 1 goto exedos
  640. :exedos
  641. if "%ARG%" == "" goto %menu%
  642. cls
  643. command /c %ARG%
  644. set arg=
  645. goto wait
  646.  
  647. REM --------------DOS / DISKETTE KOPIEREN
  648. :kopieren
  649. set src=A
  650. set dst=A
  651. REM pbdtxt.127,-U Von hier... ,-X13,-Y5,-H7,-V0,-R1,-S,-O
  652. REM -ISRC,-B1,-X24,-Y9,-H7,-V15,-R0,-O
  653. USELIB 127-128 PBD
  654. if errorlevel 254 goto lastmenu
  655. REM pbdtxt.129,-U ...nach da ,-X13,-Y14,-H7,-V0,-R1,-S,-O
  656. REM -IDST,-B1,-X24,-Y18,-H7,-V15,-R0,-O
  657. USELIB 129-130 PBD
  658. if errorlevel 254 goto lastmenu
  659. REM -F,-C
  660. USELIB 131 PBD
  661. diskcopy %src%: %dst%:
  662. set src=
  663. set dst=
  664. set menu=dos
  665. goto start
  666.  
  667. REM ---------------------DOS / DISKETTE FORMATIEREN
  668. :formatieren
  669. set lw=A
  670. REM pbdtxt.132,-U Formatieren ,-H7,-V0,-R1,-S,-O
  671. REM -ILW,-B1,-X40,-Y14,-H7,-V15,-R0,-O
  672. USELIB 132-133 PBD
  673. if errorlevel 254 goto lastmenu
  674. if "%lw%" == "A" goto form
  675. if "%lw%" == "B" goto form
  676. if "%lw%" == "a" goto form
  677. if "%lw%" == "b" goto form
  678. goto copywarn
  679. :form
  680. REM -F,-C
  681. USELIB 134 PBD
  682. format %lw%:
  683. set lw=
  684. set menu=dos
  685. goto start
  686.  
  687. REM -----------------DOS / DATEI UMBENENNEN
  688. :umbenennen
  689. REM -ISRC,-B50,-U Geben Sie den ALTEN Namen ein ,-X10,-Y12,-H7,-V0,-R1,-S,-O
  690. USELIB 135 PBD
  691. if errorlevel 254 goto lastmenu
  692. REM -IDST,-B50,-U Geben Sie den NEUEN Namen ein ,-X10,-Y17,-H7,-V0,-R1,-S,-O
  693. USELIB 136 PBD
  694. if errorlevel 254 goto lastmenu
  695. if "%src%" == "" goto lastmenu
  696. if "%dst%" == "" goto lastmenu
  697. if not exist %src% goto existerr
  698. ren %src% %dst%
  699. set src=
  700. set dst=
  701. goto refresh2
  702.  
  703. REM --------------------DOS / COPY CON
  704. :copycon
  705. REM -ISRC,-B50,-U Geben Sie einen Dateinamen ein ,-H7,-V0,-R1,-S
  706. USELIB 137 PBD
  707. if errorlevel 254 goto %menu%
  708. if "%src%" == "" goto %menu%
  709. cls
  710. echo Schreiben Sie, was Sie wollen und schließen Sie Ihre Eingaben mit
  711. echo F6 und anschließendem RETURN ab.
  712. echo -----------------------------------------------------------------
  713. echo COPY CON: %src%
  714. copy con %src%
  715. set src=
  716. set menu=main
  717. goto start
  718.  
  719.  
  720.  
  721. rem ++++++++++++++++++++++++++++++++++++++++
  722. rem       Error-Meldungen
  723. rem ++++++++++++++++++++++++++++++++++++++++
  724.  
  725. REM --------------Speziell für Diskcopy
  726. :copywarn
  727. set lw=
  728. REM pbdtxt.138,-U ACHTUNG! ,-H4,-V15,-S,-P
  729. USELIB 138 PBD
  730. goto lastmenu
  731.  
  732. REM --------------Allgemeine NOT EXIST - Routine
  733. :existerr
  734. REM pbdtxt.139,-U ACHTUNG! ,-H4,-V15,-S,-P
  735. USELIB 139 PBD
  736. goto lastmenu
  737.  
  738. REM --------------Speziell für Konfiguration
  739. :conferr
  740. REM pbdtxt.140,-U ACHTUNG! ,-H4,-V15,-S,-P
  741. USELIB 140 PBD
  742. goto %menu%
  743.  
  744. REM --------------Speziell für BAT2Q
  745. :bat2qerr
  746. REM pbdtxt.141,-U ACHTUNG! ,-H4,-V15,-S,-P
  747. USELIB 141 PBD
  748. goto %menu%
  749.  
  750. REM --------------Speziell für PB.EXE
  751. :pberr
  752. REM pbdtxt.142,-U ACHTUNG! ,-H4,-V15,-S,-P
  753. USELIB 142 PBD
  754. goto %menu%
  755.  
  756. REM --------------Speziell für PBLIB.SRC
  757. :pbliberr
  758. REM pbdtxt.143,-U ACHTUNG! ,-H4,-V15,-S,-P
  759. USELIB 143 PBD
  760. goto %menu%
  761.  
  762. REM -------------Speziell für LIB2TXT
  763. :liberr
  764. REM pbdtxt.144,-U ACHTUNG! ,-H4,-V15,-S,-P
  765. USELIB 144 PBD
  766. goto %menu%
  767.  
  768. rem ++++++++++++++++++++++++++++++++++++++++
  769. rem           ENDE
  770. rem ++++++++++++++++++++++++++++++++++++++++
  771. :end
  772. set menu=
  773. set al=
  774. set dy=
  775. set ed=
  776. set qn=
  777. set ln=
  778. set pn=
  779. set xn=
  780. set cn=
  781. set src=
  782. set dst=
  783. set pn1=
  784. set f=
  785. set s=
  786. set nr=
  787. set ojn=
  788. set kjn=
  789. set sw=
  790. set tmp=
  791. set arg=
  792. cls
  793.  
  794.